library(readr)
library(tidyverse)
## ── Attaching packages ──────────────────────────────────────────────────── tidyverse 1.2.1 ──
## ✔ ggplot2 2.2.1     ✔ purrr   0.2.4
## ✔ tibble  1.4.2     ✔ dplyr   0.7.4
## ✔ tidyr   0.8.0     ✔ stringr 1.3.0
## ✔ ggplot2 2.2.1     ✔ forcats 0.2.0
## ── Conflicts ─────────────────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
library(ggplot2)
library(gridExtra)
## 
## Attaching package: 'gridExtra'
## The following object is masked from 'package:dplyr':
## 
##     combine
library(stringr)
library(ggthemes)
library(dplyr)
library(GGally)
## 
## Attaching package: 'GGally'
## The following object is masked from 'package:dplyr':
## 
##     nasa
library(vcd)
## Loading required package: grid
library(extracat)
library(DAAG)
## Loading required package: lattice
library(forcats)
library(tibble)
library(lubridate)
## 
## Attaching package: 'lubridate'
## The following object is masked from 'package:base':
## 
##     date
library(skimr)
## 
## Attaching package: 'skimr'
## The following objects are masked from 'package:dplyr':
## 
##     contains, ends_with, everything, matches, num_range, one_of,
##     starts_with
library(plotly)
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
library(parcoords)
library(RColorBrewer)
source('../scripts/global.R')
## Loading required package: shiny
## Loading required package: shinydashboard
## Warning: package 'shinydashboard' was built under R version 3.4.4
## 
## Attaching package: 'shinydashboard'
## The following object is masked from 'package:graphics':
## 
##     box
## Loading required package: shinythemes
## Loading required package: dygraphs
## Loading required package: DT
## 
## Attaching package: 'DT'
## The following objects are masked from 'package:shiny':
## 
##     dataTableOutput, renderDataTable
## Loading required package: xts
## Loading required package: zoo
## 
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
## 
## Attaching package: 'xts'
## The following objects are masked from 'package:dplyr':
## 
##     first, last
## Loading required package: tm
## Loading required package: NLP
## 
## Attaching package: 'NLP'
## The following object is masked from 'package:ggplot2':
## 
##     annotate
## Loading required package: wordcloud
## Loading required package: memoise
## Loading required package: memisc
## Loading required package: MASS
## 
## Attaching package: 'MASS'
## The following object is masked from 'package:plotly':
## 
##     select
## The following object is masked from 'package:DAAG':
## 
##     hills
## The following object is masked from 'package:dplyr':
## 
##     select
## 
## Attaching package: 'memisc'
## The following objects are masked from 'package:NLP':
## 
##     content, content<-
## The following objects are masked from 'package:plotly':
## 
##     rename, style
## The following object is masked from 'package:lubridate':
## 
##     is.interval
## The following objects are masked from 'package:dplyr':
## 
##     collect, recode, rename
## The following objects are masked from 'package:stats':
## 
##     contr.sum, contr.treatment, contrasts
## The following object is masked from 'package:base':
## 
##     as.array

Introduction

Team

  • Manksh Gupta (mg3835): exporatory data analysis, visualization (static plots), research
  • Kathy Lin (kl2615): exploratory data analysis, visualization (static and Shiny dashboard)
  • Louis Massera (lm3287): exploratory data analysis, visualization (static plots)
  • Chong Zhao (cz2470): data processing, exploratory data analysis, visualization (static plots), writing final report

Motivation

Popular music offers a unique lens through which to study how a culture evolves. It allows us to mine insights about what preoccupies a society, what it values in its entertainment, and how its preferences change with each generation. Because an analysis of “all mainstream music” is beyond the practical scope of this class, we limit our view to only the 100 most popular songs for each of the past 50 years.

To enable our analysis, we turn to one of the world’s most popular streaming music providers, Spotify, which not only contains a comprehensive catalog of mainstream songs but also a database of proprietary data describing various auditory features of each song. In addition to these auditory features, another rich source of data is the lyrics of the songs themselves, which when combined with Spotify’s audio features, paints a vivid portrait of a changing musical landscape. Specifically, we seek to explore questions relating to the following themes:

  • Artists (most popular, longevity, most explicit, most danceable, most collaborative, etc.)
  • Words (most frequent, usage over time, relationship to audio features)
  • Audio features (evolution over time)

Data description

For this analysis, we focus primarily on the US music market and use Billboard’s Yearly Top 100 chart as our means of determining the most popular singles for each year. Billboard is a weekly music news magazine that publishes a weekly chart of the top 100 songs sold each week. This weekly chart is considered the industry standard for measuring the success of commercial music and serves as the basis for compiling the Yearly Top 100 chart. This yearly chart starts the first week of December to the last week in November of each year. A single gains points on the yearly chart for each weekly chart it appears on, with a weekly position of 100 yielding a single point and a position of 1 yielding 100 points (source: billboardtop100of.com).

Data acquisition

Because it is not possible to obtain Billboard’s chart data and corresponding song lyrics without some form of extensive web scraping, we opted instead to use a dataset compiled by Kaylin Walker on May 8, 2016 consisting of the yearly top 100 singles and their lyrics from 1965-2015. However, our primary data, Spotify’s audio features, was accessed directly on February 21, 2018 by querying Spotify’s API using the obtained list of top 100 singles, the Python script for which can be found here. We then merge these features back into the Billboard dataset, as detailed here.

df = read_csv('../data/billboard-spotify.csv')
## Parsed with column specification:
## cols(
##   .default = col_double(),
##   rank = col_integer(),
##   song = col_character(),
##   artist = col_character(),
##   year = col_integer(),
##   lyrics = col_character(),
##   release_date = col_character(),
##   spotify_album_name = col_character(),
##   spotify_artist = col_character(),
##   spotify_name = col_character()
## )
## See spec(...) for full column specifications.
colnames(df)
##  [1] "rank"               "song"               "artist"            
##  [4] "year"               "lyrics"             "acousticness"      
##  [7] "danceability"       "duration_ms"        "energy"            
## [10] "explicit"           "instrumentalness"   "key"               
## [13] "liveness"           "loudness"           "mode"              
## [16] "popularity"         "release_date"       "speechiness"       
## [19] "spotify_album_name" "spotify_artist"     "spotify_name"      
## [22] "tempo"              "time_signature"     "valence"

Description of relevant features

The dataset consisting of merged Billboard and Spotify data contains a 5100 rows, one for each song, each with the following features:

  • rank: The rank of the song in its Yearly Top 100 chart, with \(1\) being the highest and \(100\) being the lowest.
  • song: The song’s name.
  • artist: The song’s artist.
  • year: The year in which the song placed in the Yearly Top 100 chart.
  • lyrics: The lyrics for that song.
  • acousticness: A confidence measure from 0.0 to 1.0 of whether the track is acoustic. 1.0 represents high confidence the track is acoustic.
  • danceability: Describes how suitable a track is for dancing based on a combination of musical elements including tempo, rhythm stability, beat strength, and overall regularity. A value of 0.0 is least danceable and 1.0 is most danceable.
  • duration_ms: Length of the song in milliseconds.
  • energy: A measure from 0.0 to 1.0 and represents a perceptual measure of intensity and activity. Typically, energetic tracks feel fast, loud, and noisy. For example, death metal has high energy, while a Bach prelude scores low on the scale.
  • explicit: Binary variable with \(0\) indicating a non-explicit song and \(1\) indicating an explicit song.
  • instrumentalness: Predicts whether a track contains no vocals. “Ooh” and “aah” sounds are treated as instrumental in this context. Rap or spoken word tracks are “vocal”. The closer the instrumentalness value is to 1.0, the greater likelihood the track contains no vocal content. Values above 0.5 are intended to represent instrumental tracks, but confidence is higher as the value approaches 1.0.
  • liveness: Detects the presence of an audience in the recording. Higher liveness values represent an increased probability that the track was performed live. A value above 0.8 provides strong likelihood that the track is live.
  • loudness: The overall loudness of a track in decibels (dB). Loudness values are averaged across the entire track and are useful for comparing relative loudness of tracks. Loudness is the quality of a sound that is the primary psychological correlate of physical strength (amplitude). Values typical range between -60 and 0 db.
  • mode: Mode indicates the modality (major or minor) of a track, the type of scale from which its melodic content is derived. Major is represented by 1 and minor is 0.
  • popularity: A measure between 0 and 1 indicating how many times that song has been streamed.
  • speechiness: Detects the presence of spoken words in a track. The more exclusively speech-like the recording (e.g. talk show, audio book, poetry), the closer to 1.0 the attribute value. Values above 0.66 describe tracks that are probably made entirely of spoken words. Values between 0.33 and 0.66 describe tracks that may contain both music and speech, either in sections or layered, including such cases as rap music. Values below 0.33 most likely represent music and other non-speech-like tracks
  • tempo: The overall estimated tempo of a track in beats per minute (BPM). In musical terminology, tempo is the speed or pace of a given piece and derives directly from the average beat duration.
  • time_signature: An estimated overall time signature of a track. The time signature (meter) is a notational convention to specify how many beats are in each bar (or measure).
  • valence: A measure from 0.0 to 1.0 describing the musical positiveness conveyed by a track. Tracks with high valence sound more positive (e.g. happy, cheerful, euphoric), while tracks with low valence sound more negative (e.g. sad, depressed, angry).

Source: Spotify API

Analysis of data quality

# skimr output
spotifydf <- as.tibble(df)
skimr::skim(spotifydf)
## Skim summary statistics
##  n obs: 5100 
##  n variables: 24 
## 
## Variable type: character 
##            variable missing complete    n min  max empty n_unique
##              artist       0     5100 5100   1   89     0     2473
##              lyrics     250     4850 5100  12 5758     0     4628
##        release_date     337     4763 5100   4   10     0     1612
##                song       0     5100 5100   1   65     0     4583
##  spotify_album_name     337     4763 5100   1  109     0     3217
##      spotify_artist     337     4763 5100   1   56     0     1866
##        spotify_name     337     4763 5100   1  122     0     4411
## 
## Variable type: integer 
##  variable missing complete    n   mean    sd   p0     p25 median     p75
##      rank       0     5100 5100   50.5 28.87    1   25.75   50.5   75.25
##      year       0     5100 5100 1990   14.72 1965 1977    1990   2003   
##  p100     hist
##   100 ▇▇▇▇▇▇▇▇
##  2015 ▇▇▇▇▇▇▇▇
## 
## Variable type: numeric 
##          variable missing complete    n       mean        sd          p0
##      acousticness     337     4763 5100      0.23      0.24      1.2e-05
##      danceability     337     4763 5100      0.63      0.15      0.13   
##       duration_ms     337     4763 5100 241145.63  61486.57  78200      
##            energy     337     4763 5100      0.63      0.19      0.02   
##          explicit     337     4763 5100      0.093     0.29      0      
##  instrumentalness     337     4763 5100      0.023     0.11      0      
##               key     337     4763 5100      5.27      3.57      0      
##          liveness     337     4763 5100      0.18      0.15      0.019  
##          loudness     337     4763 5100     -8.35      3.49    -25.49   
##              mode     337     4763 5100      0.69      0.46      0      
##        popularity     337     4763 5100     53.36     14.56      0      
##       speechiness     337     4763 5100      0.069     0.073     0.022  
##             tempo     337     4763 5100    119.22     27.22     51.32   
##    time_signature     337     4763 5100      3.97      0.24      0      
##           valence     337     4763 5100      0.61      0.24      0.037  
##         p25       median          p75       p100     hist
##       0.038      0.14         0.37          0.98 ▇▃▂▂▁▁▁▁
##       0.53       0.64         0.73          0.99 ▁▁▂▅▇▇▃▁
##  205680     235933       268640       1561133    ▇▃▁▁▁▁▁▁
##       0.5        0.65         0.79          1    ▁▁▂▆▇▇▇▃
##       0          0            0             1    ▇▁▁▁▁▁▁▁
##       0          5.1e-06      0.00046       0.96 ▇▁▁▁▁▁▁▁
##       2          5            8            11    ▇▃▃▃▂▆▃▅
##       0.084      0.12         0.22          1    ▇▃▂▁▁▁▁▁
##     -10.63      -7.81        -5.64         -1.1  ▁▁▁▂▅▇▇▂
##       0          1            1             1    ▃▁▁▁▁▁▁▇
##      44         55           65            87    ▁▁▂▅▇▇▆▁
##       0.032      0.041        0.066         0.74 ▇▁▁▁▁▁▁▁
##      98.99     117.99       133.17        210.75 ▁▃▇▇▅▂▁▁
##       4          4            4             5    ▁▁▁▁▁▁▇▁
##       0.42       0.63         0.81          0.99 ▂▃▅▆▇▇▇▇
#visna plot
visna(spotifydf, sort='b')

From above, we are fortunate to find no significant problems with the numerical features (i.e. values with ranges that do not make sense). However, there are 337 songs that have missing values for all Spotify features due to the fact that these songs were queried unsuccessfully. The plot below shows that the missingness of these features is mostly uncorrelated with the year in which the song charted (missing not at random).

na_years = df %>%
    filter(is.na(acousticness)) %>%
    dplyr::select(year)
ggplot(na_years, aes(x=year)) + geom_histogram(bins=51)

instrumentalness_df = df %>%
  filter(!is.na(instrumentalness)) %>%
  group_by(is.na(lyrics)) %>%
  summarize(avg_instrumentalness = mean(instrumentalness, rm.na=TRUE))

colnames(instrumentalness_df) = c('is_na', 'instrumentalness')

ggplot(instrumentalness_df) + geom_col(aes(x=is_na, y=instrumentalness)) + coord_flip()

Additionally, 250 songs have no lyrics. We suspect that this is due to the songs being instrumental. While we cannot manually check if this is the case for all 250 songs, we can, using Spotify’s audio feature “instrumentalness”, check the average instrumentalness of songs for which lyrics were available and songs for which they were not available. Indeed, we see that instrumentalness of songs without lyrics is much higher than those with lyrics, suggesting that at least some of the songs with missing lyrics had no lyrics to begin with.

One significant problem we noticed in the lyric text is that some lyrics were not scraped properly; for certain songs, there exists no demarcation between the final word of a line and the first word of the next line, resulting in merged words such as:

A cursory visual inspection shows that this problem does not apply to all lyrics, yet estimating the number of songs affected much less addressing this issue is beyond the scope of this project. Had time permitted, we would have processed the text using an NLP package to detect “out of vocabulary” words to gauge the extent of this issue.

A more tractable problem in the data is that some songs may become popular near the end of a year and remain popular through the beginning of the following year, resulting in 201 songs with a duplicate.

nrow(df[(duplicated(df[c('artist', 'song')])),][c('artist', 'song')])
## [1] 201

Duplicates are detected on the basis that an artist and song should comprise a unique pair, and duplicated artist-song pairs are removed from the dataset. Because the data is ordered chronologically, this means that the later record is always removed.

df = df[!(duplicated(df[c('artist', 'song')])),]

Below, we derive 4 additional features to aid in analysis:

# calculate words per second
temp = strsplit(df$lyrics, split=" ")
df['words_per_sec'] = sapply(temp, length) / (df['duration_ms'] / 1000)

# calculate duration in minutes
df['duration_min'] = df['duration_ms'] / 1000 / 60

# create a decade column
df['decade'] = floor(df['year'] / 10) * 10

# create base artist by stripping away featured artists
df = mutate(df, artist_base = str_replace_all(artist, "\\s\\(*feat.*", ""))

Main analysis

We present this exploratory data analysis in four sections as outlined in the introduction: artists, words, and audio features.

Artists

In this subsection, we examine the data at the artist level to answer some basic initial questions.

top_artists = df %>%
                group_by(artist_base) %>%
                summarize(num_singles = n()) %>%
                arrange(desc(num_singles))
top_artists_30 = top_artists[0:30,]
ggplot(top_artists_30, aes(x = reorder(artist_base, num_singles), y = num_singles)) +
    geom_col() + 
    coord_flip() +
    xlab('Artist') +
    ylab('Number of yearly top 100 singles from 1965-2015') +
    labs(title = 'Who are the most popular artists of the past 50 years?')

most_explicit_artists = df %>%
                group_by(artist_base) %>%
                summarize(explicitness = sum(explicit)) %>%
                arrange(desc(explicitness))

most_explicit_artists = most_explicit_artists[0:30,]
ggplot(most_explicit_artists, aes(x = reorder(artist_base, explicitness), y = explicitness)) +
    geom_col() + 
    coord_flip() +
    xlab('Artist') +
    ylab('Number of yearly top 100 explicit singles from 1965-2015') +
    labs(title = 'Who are the most popular explicit artists of the past 50 years?')

To measure the explicitness of each artist, we initially considered averaging the binary 0/1 explicit attribute of each song by artist. However, because many artists only have 1 single in the Yearly Top 100 throughoug their career, this results in many artists having an average explicitness of 1. Thus, we fall back to simply counting the number of explicit singles per artist. Interestingly, only the top 3 most explicit artists (Eminem, Ludacris, and Drake) are also among the top 30 most popular artists. Eminem and Ludacris are famously prolific and explicit; in fact we can see that all 15 and 14, respectively, of their top singles are explicit. More generally, we also notice that the vast majority of these singles are from the hip hop and rap genres.

most_featuring_artists = df %>%
                    mutate(is_collab = str_detect(artist, 'feat')) %>%
                    group_by(artist_base) %>%
                    summarize(num_collaborations = sum(is_collab)) %>%
                    arrange(desc(num_collaborations))
most_featuring_artists = most_featuring_artists[0:20,]

p1 = ggplot(most_featuring_artists, aes(x = reorder(artist_base, num_collaborations),
                                              y = num_collaborations)) +
    geom_col() +
    xlab('Main artist') +
    ylab('Number of top 100 singles featuring a guest artist') +
    scale_y_continuous(breaks=1:9, labels=1:9) + 
    coord_flip()

matches = str_match(as.list(df['artist'])$artist, 'featuring\\s(.*)')
matches = matches[, 2]
matches = matches[!is.na(matches)]
matches = as_tibble(matches)

featured_artists = matches %>%
                    group_by(value) %>%
                    summarize(num_features = n()) %>%
                    arrange(desc(num_features))
featured_artists = featured_artists[1:20,]

p2 = ggplot(featured_artists, aes(x = reorder(value, num_features),
                                              y = num_features)) +
    geom_col() +
    xlab('Featured artist') +
    ylab('Number of top 100 singles featured as guest') +
    scale_y_continuous(breaks=1:12, labels=1:12) + 
    coord_flip()

grid.arrange(p1, p2, ncol=2)

Many top singles are the product of a collaboration between two artists, with the resulting artist attribution of the song taking the form “X featuring Y”, where X denotes the main artist and Y denotes the guest/featured artist. Above, we see that Rihanna and Chris Brown most frequently feature other artists in their top singles, while Lil Wayne and T-Pain are the most frequent guests on other artists’ top singles. Particularly interesting is the fact that while Usher, Timbaland, Santana, and David Guetta are among the 20 most “featuring” artist, they are not among even the top 20 most “featured” artists. Conversely, T-Pain, Snopp Dogg, Nicki Minah, and Will.I.Am are among the 20 most “featured” artist despite not being among the 20 most “featuring” artists.

collaborations = df %>%
                    mutate(is_collab = str_detect(artist, 'feat')) %>%
                    group_by(year) %>%
                    summarize(num_collaborations = sum(is_collab))
ggplot(collaborations, aes(x = year, y = num_collaborations)) +
    geom_line() +
    geom_point() + 
    xlab('Year') +
    ylab('Number of top 100 singles featuring a guest artist')

More interesting still is the rising trend in artist collaborations over time that begins during the 1990s and takes off dramatically before plateauing in the late 2000s. Additional comments about this trend are presented in the executive summary.

Number of covers per year:

bin_width <- 1
cover <- read.csv("../data/Louis/cover_year.csv")
ggplot(cover, aes(year)) +
  geom_histogram(color = "black", fill = "lightblue", binwidth = bin_width) +
  theme(legend.position="bottom") +
  ggtitle("Cover") +
  theme(plot.title = element_text(hjust = 0.5)) +
  xlab("Year") + 
  ylab("Count")

nunique_artists_year = df %>% 
                        group_by(year) %>%
                        summarize(nunique = n_distinct(artist_base))

options(repr.plot.width = 16, repr.plot.height = 6)
ggplot(nunique_artists_year, aes(x = year, y = nunique), fill='black') + 
    geom_line() + 
    geom_point() + 
    ylab('Number of unique artists')

The plot above shows artist diversity over time, with diversity defined not on the basis of race but on the number of unique artists with top 100 singles each year. The trend depicted shows a mixed picture; the most diverse year is in the early 1970s while the least diverse is in 2009 and 2010, yet the pattern remains noisy enough that more years are needed before making a more confident determination.

top_artists = df %>%
                group_by(artist_base) %>%
                summarize(num_singles = n(), earliest_hit = min(year), latest_hit = max(year), longevity = latest_hit - earliest_hit, hits_per_year = num_singles / longevity) %>%
                arrange(desc(longevity))
top_artists_30 = top_artists[0:30,]

ggplot(top_artists_30) + geom_segment(aes(x=earliest_hit, xend=latest_hit, y=reorder(artist_base, longevity), yend=reorder(artist_base, longevity), color=num_singles), size=5) + geom_text(aes(x=latest_hit + 3, y=reorder(artist_base, longevity), label=paste(longevity, 'years'))) + ggtitle('Career spans of most timeless artists')

Besides just revealing which artists had the most top 100 hit singles, one of the more interesting aspects of the data is that it allows us to see which artists had the greatest longevity of career, defined simply as number of years between an artist’s earliest charting hit and most recent charting hit. A caveat here is that because the latest of any duplicate singles was removed from the dataset, some artists’ career lifespans appear shorter by a year than if duplicates singles had not been removed.

Above, we not only observe which artists had the greatest career longevity but also the time period during which an artist was popular, with lighter colors signifying an artist with greater numbers of total hit singles. Curiously, while Madonna and Mariah Carey have charted most frequently in the top 100, several artists, Santana, Cher, The Isley Brothers, Aretha Franklin, etc., have had longer charting careers.

This raises a natural question: does there exist a relationship between the number of singles an artist produces per year and their career span? Below, we observe that no artist has produced an average of greater than 2 hit singles a year and achieved a career span exceeding a decade. In fact, all artists generating on avearage more than 2.5 hit singles per year have career spans of less than 5 years, with the most significant “flash in the pan” artists being those that averaged 4 or more hit singles per year.

ggplot(top_artists, aes(x = longevity, y = hits_per_year, color = num_singles)) + geom_point(alpha=0.25)

However, being a “flash in the pan” artist with multiple hit singles over a short span of time might still be preferable to the fates of the majority of charting artists. In the cumulative relative frequency histogram below, we see that over half of all artists are “one hit wonders”, only ever generating a single hit, and over 3/4ths of artists ever generate at most 2 hits.

p1 = ggplot(top_artists) + geom_histogram(aes(x=num_singles))
p2 = ggplot(top_artists) + geom_histogram(aes(x=num_singles, y=cumsum(..count../sum(..count..))))

grid.arrange(p1, p2, ncol=2)
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Audio features

In this subsection, we turn our focus to the audio features obtained from Spotify for each song, particularly how these features are related to one another as well as how they change over time. Originally, we aggregated each feature by year and plotted how the mean evolves over time. Not satisfied with the resulting loss in information by aggregating using solely the mean, we then incorporated additional aggregations such as the maximum and the minimum for each year before ultimately deciding to create box plots for each year to minimize information loss.

#Duration
spotifydf <- df%>%
                group_by(year)

ggplot(spotifydf) + geom_boxplot(aes(year, duration_min, group=year))+
    ggtitle("Duration over time")+
    ylab("Duration (in Minutes)")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

From above, we observe a gradual increase in the durations of top 100 singles that peaks at 1990 with median song lengths just shy of 5 minutes before starting on a downward trend to under 4 minutes. This trend of declining song durations coincides with a decline in the variation of song lengths. One possible explanation is that as the music industry has become increasingly competitive, artists are forced to grab their audience’s attention as quickly as possible, and as listeners gain access to an ever-expanding catalogue of songs, their attention spans are decreasing.

#Acousticness
ggplot(spotifydf) + geom_boxplot(aes(year, acousticness, group=year)) +
    ggtitle("Acousticness over time") +
    ylab("Acousticness") +
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

Top 100 songs have been trending downward in acousticness from 1965 to 2015. This trend might also be attributed to an increasingly competitive music industry; live studio musicians and indeed recording studios themselves are much more expensive in contrast to hardware synthesizers, and later, software synthesizers on which artists can create entire songs using only a laptop computer.

#Danceability
ggplot(spotifydf) + geom_boxplot(aes(year, danceability, group=year)) +
    ggtitle("Danceability over time")+
    ylab("Danceability ")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

While the median danceability of songs has remained relatively stable from 1985 to 2015, there exists a noticeable increase from 1965 to 1984.

#Energy
ggplot(spotifydf) + geom_boxplot(aes(year, energy, group=year)) +
    ggtitle("Energy over time")+
    ylab("Energy ")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

Overall, there appears that songs are becoming more energetic and busier over time, though the signal is quite noisy. Most interestingly, from 1985 onwards, the change in median energy over time appears to even be cyclical.

#Instrumentalness
ggplot(spotifydf) + geom_boxplot(aes(year, instrumentalness, group=year)) +
    ggtitle("Instrumentalness over time")+
    ylab("Instrumentalness ")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

Unsurprisingly, the median instrumentalness of top 100 singles consistently stays at or near 0, however we can observe a noticeable thinning out of outliers, suggesting that instrumental music is becoming increasingly unpopular. Additionally, this decline in the instrumentalness of songs could be tied to the decline of song lengths; if songs are becoming shorter because of declining listener attention spans, then one is likely to also observe songs with increasingly shorter instrumental introductions and interludes as artists favor “getting to the point.”

#Liveness
ggplot(spotifydf) + geom_boxplot(aes(year, liveness, group=year)) +
    ggtitle("Liveness over time")+
    ylab("Liveness ")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

There are no discernable trends in how the distribution of songs’ liveness changes over time.

#Loudness
ggplot(spotifydf) + geom_boxplot(aes(year, loudness, group=year)) +
    ggtitle("Loudness over Time")+
    ylab("Loudness ")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

Top 100 singles are unquestionably becoming much louder. We expand on an explanation of the “Loudness Wars” in the executive summary.

#Speechiness
ggplot(spotifydf) + geom_boxplot(aes(year, speechiness, group=year)) +
    ggtitle("Speechiness over Time")+
    ylab("Speechiness ")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

Also pronounced is a dramatic increase in speechiness starting from 1990 and peaking in 2004 which may correspond with the increased popularity of rap over that period of time.

#Tempo
ggplot(spotifydf) + geom_boxplot(aes(year, tempo, group=year)) +
    ggtitle("Tempo over Time")+
    ylab("Tempo ")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

There are no discernable trends in how the distribution of songs’ tempos changes over time.

#Valence
ggplot(spotifydf) + geom_boxplot(aes(year, valence, group=year)) +
    ggtitle("Valence over Time")+
    ylab("Valence")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

There is a general trend of songs becoming increasingly less positive, perhaps reflecting the increase in cultural and economic pressure society has been experiencing.

#Verbosity
ggplot(spotifydf) + geom_boxplot(aes(year, words_per_sec, group=year)) +
    ggtitle("Verbosity over Time")+
    ylab("Words per second")+
    scale_x_continuous(breaks = seq(1960,2020,5))
## Warning: Removed 327 rows containing non-finite values (stat_boxplot).

Corresponding to the trends involving speechiness over time, we see that the number of words heard per second in songs has increased over time. Indeed, one should expect this given the previously observed speechiness trends as it is much easier to speak quickly than to sing quickly.

keepcols <- c('year', 'acousticness', 'danceability', 'duration', 'energy', 'instrumentalness', 'liveness','loudness','speechiness', 'tempo', 'valence')

spotifydf<-spotifydf%>%
    filter(!is.na(duration_ms))%>%
    mutate(duration=duration_ms/1000/60)

spotifydf_s <- spotifydf%>%
                dplyr::select(keepcols) %>%
                group_by(year)%>%
                summarize(mean_acousticness = mean(acousticness),
                        mean_danceability = mean(danceability),
                        mean_duration = mean(duration),
                        mean_energy = mean(energy),
                        mean_instrumentalness = mean(instrumentalness),
                        mean_liveness = mean(liveness),
                        mean_loudness = mean(loudness),
                        mean_speechiness = mean(speechiness),
                        mean_tempo = mean(tempo),
                        mean_valence = mean(valence)
                )
# %>%
#                 gather(key='variable', value = 'Freq', -year)
spotifydf_s$year<- factor(spotifydf_s$year, levels = unique(spotifydf_s$year))

ggparcoord(spotifydf_s, columns = 2:11, alphaLines = 0.7, groupColumn ='year',scale = 'uniminmax')+xlab("")+ylab("") + theme(axis.text.x = element_text(angle=90))

The parallel coordinates plot above was generated by creating an audio feature profile for each year in which we simply average each audio feature across all songs for each year. In other words, each line represents the average Spotify audio features for that year. We considered using a perceptually uniform color space to denote years, however we found that distinguishing the inner decades under such a scheme to be more difficult, so we stayed with the default. The features have also been re-scaled so that the maximum feature value is 1 and minimum is 0. Some notable observations: - Songs from 1966 to 1975 are markedly more acoustic and less danceable than those from later years, which also display a trend of decreasing acousticness over time. - Songs from the 1990s seem to have had the longest duration - Songs from the most recent decade appear to be among the highest energy, least instrumental, and loudest - Songs from the 1980s appear to be much less speechy than from other decades

To examine the correlation structure of the data’s continuous features, we create a correlation matrix and visualize it with a heatmap below. Additionally, we arrange the features so that those with the most similar correlations to other features are placed near each other, with the dendrograms on the top and left showing which features are most similar to each other.

columns = c('rank', 'year', 'acousticness', 'danceability', 'duration_min', 
            'energy', 'instrumentalness', 'liveness', 'loudness', 'popularity',
            'speechiness', 'tempo', 'valence', 'words_per_sec')

df_cor = df[columns]
correlation = cor(df_cor, method='pearson', use='pairwise.complete.obs')

col = colorRampPalette(c('red', 'white', 'green'))(20)
heatmap(x = correlation, col = col, symm = TRUE)

Note: This heatmap below was originally created in Python using the Seaborn visualization library. In translating the visualization to R using R’s heatmap functionality, we were unable to produce a legend nor annotate the grid cells individually. We present this second, more ideal heatmap as an image in addition to the one created in R above.

The dendrogrammed correlation heatmap reveals some interesting aspects of the data’s correlation structure:

  • Popularity and year are weakly correlated. This makes intuitive sense given that the audience on Spotify are more likely to listen to more current music and that people who would enjoy the older music might be less likely to listen to it on Spotify.
  • Loudness and year are also weakly correlated, as previously observed.
  • Loudness and energy are moderately correlated.
  • Acousticness and energy are weakly anticorrelated. This could be explained by the fact that ballads and other slow music are more likely to feature acoustic instruments.
  • Valance and danceability are weakly correlated. This could suggest that for the most part, people are less inclined to dance to sad or angry music.
  • Words per second is weakly correlated with speechiness. Indeed, it is easier to talk fast than to sing fast.

The correlation heatmap provides guidance as to which pairs of features are worth investigating further.

p1 = ggplot(df, aes(x=acousticness, y=energy)) +
    geom_point(alpha=0.15) +
    facet_wrap(~ decade)

p2 = ggplot(df, aes(x=acousticness, y=energy, color=year)) +
    geom_point(alpha=0.5) +
    ggtitle('Acousticness vs. energy')

grid.arrange(p1, p2, ncol = 2)
## Warning: Removed 327 rows containing missing values (geom_point).

## Warning: Removed 327 rows containing missing values (geom_point).

It appears that most songs have very low acousticness (below 0.125) and high energy (above 0.5). However, outside this dense region, as a song increases in acousticness, its energy appears to decrease quadratically. Furthermore, it appears that these less common high-acoustic/lower-energy songs are predominantly older, with the vast majority of more recent songs occupying the low-acoustic/higher-energy region. We can observe this more clearly by faceting on decade. The facetted scatterplots confirm more clearly that indeed songs are trending towards lower acousticness and higher energy with each passing decade (which was also observed in the time series box plots). It should be noted that because the time range of the dataset is from 1965-2015, the facets for the 1960s and 2010s have half as many data points as the facets for other decades.

p2 = ggplot(df, aes(x=danceability, y=valence, color=year)) +
    geom_point(alpha=0.5) + 
    ggtitle('Danceability vs valence')

p1 = ggplot(df, aes(x=danceability, y=valence)) +
    geom_point(alpha=0.15) +
    facet_wrap(~ decade)

grid.arrange(p1, p2, ncol = 2)
## Warning: Removed 327 rows containing missing values (geom_point).

## Warning: Removed 327 rows containing missing values (geom_point).

p2 = ggplot(df, aes(x=speechiness, y=words_per_sec, color=year)) +
    geom_point(alpha=0.5) +
    ggtitle('Speechiness vs verbosity')

p1 = ggplot(df, aes(x=speechiness, y=words_per_sec)) +
    geom_point(alpha=0.15) +
    facet_wrap(~ decade)

grid.arrange(p1, p2, ncol = 2)
## Warning: Removed 327 rows containing missing values (geom_point).

## Warning: Removed 327 rows containing missing values (geom_point).

Above, we observe that speechiness and verbosity (words per second) are indeed positively correlated, albeit moderately and that top 100 singles have become increasingly more speechy and verbose starting from the 1990s when rap and hip hop first gained mainstream appeal.

p1 = ggplot(df, aes(x=energy, y=loudness, color=year)) +
    geom_point(alpha=0.5) +
    ggtitle('Energy vs. loudness')

p2 = ggplot(df, aes(x=energy, y=loudness)) +
    geom_point(alpha=0.15) +
    facet_wrap(~ decade)

grid.arrange(p2, p1, ncol = 2)
## Warning: Removed 327 rows containing missing values (geom_point).

## Warning: Removed 327 rows containing missing values (geom_point).

Words

In this subsection, we perform analyses on the words within the lyrics of each song. In particular, given the rich set of features provided by Spotify, we can explore interesting questions such as “what are the most danceable words?” To facilitate such analysis, we use Python to tidy our dataset at the word-level. Whereas the original song-level dataset contains one row per song, the word-level dataset contains one row per unique word per song. For example, if the word “dance” appears multiple times in a single song, it would be transformed into a single row in the new dataset, but if the word “dance” appears in X songs, it would be transformed into X rows in the dataset. Each row of the word-level dataset inherits all the features of the song it belongs to (year, title, artist, audio features) and contains a new feature “count” indicating the number of times the word appears in that song. Furthermore, only words that appear in at least 10 different songs are included in the new dataset. Otherwise, if we attempt to answer “what are the most danceable words” by averaging the danceability of songs that word appears in, words that appear only in the single most danceable song would dominate such a ranking.

n_gram <- read.csv("../data/Louis/n_gram.csv")
pal <- brewer.pal(9, "OrRd")
pal <- pal[-(1:3)]
for (i in 0:5){
n_gram_i <- filter(n_gram, n_gram$decade == 1960+10*i)
wordcloud(n_gram_i$word, n_gram_i$count, min.freq =3, scale=c(5, .2), random.order = FALSE, random.color = FALSE, colors= pal)}
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : help rhonda could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : help rhonda help could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh happy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wait wait could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hurdy gurdy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good lovin could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never gonna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby baby baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : black proud could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aint got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yellow submarine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get get get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : let go home could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : working coal could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : little girl could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : help help could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : comes judge could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : coal mine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : working coal mine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : well know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : send telegram could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : happy day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : grazin grass could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rhonda help help could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh happy day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : help help rhonda could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : da da da could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gurdy hurdy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : barefootin barefootin could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rhonda help rhonda could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gurdy hurdy gurdy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theyll stone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : simon says could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mony mony could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lovin gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme lovin could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hair hair hair could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna make mine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nothing like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold tight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : back get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : round round could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : paperback writer could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hurdy gurdy hurdy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get back get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : back get back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wooly bully could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sweet inspiration could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : surry surry could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : simple simon could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : please please could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one loneliest could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : simple simon says could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love need love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : day oh happy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : barefootin barefootin barefootin could not be fit on page. It will
## not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : yellow submarine yellow could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : submarine yellow submarine could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say loud black could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : real real real could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : one loneliest number could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never never never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : loud black proud could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : happy day oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : see miles miles could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oom bop bop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : writer paperback writer could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : surry surry surry could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need love need could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mine cara mia could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mia mine cara could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go home let could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant get next could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wooly bully wooly could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : sunshine let sunshine could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never love never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love never love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme lovin gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come let could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bully wooly bully could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoop wanna sit could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shes got ticket could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say louder black could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : round round round could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nana na na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na nana na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mine whoop wanna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mine going working could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lovin good lovin could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love keeps lifting could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love baby love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : louder black proud could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : light fire light could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : id long gone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got ticket ride could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good good good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : going working coal could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fought law law could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : comes judge comes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : coal mine going could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aint got time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats way love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : put little love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh happy made could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never gonna give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : miles see miles could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : jumping jack flash could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : jack flash gas could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ha ha ha could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : black proud say could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : back home belong could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : words wont come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : red roses blue could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nothing like real could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : awimoweh awimoweh awimoweh could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant friends cant could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : wonder wonder wonder could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know know know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh yeah oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : uh chh chhchh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sail away come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : em back alive could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : doo dit doo could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : doo dit dit could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : let good time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good time roll could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get floor let could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : floor let good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby baby baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : luck little luck could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never say goodbye could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : friends cant friends could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stop til get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stop stop til could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : keep force stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come get love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : til get enough could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : put lime coconut could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : play funky music could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna walk away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : worry bout thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got boogie disco could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : da doo ron could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : boogie disco round could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : things love things could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ring bell ring could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : put hands together could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love things love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : love hear percussion could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love come get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme gimme dat could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get enough keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : enough keep force could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dat gimme gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dat gimme dat could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : burn baby burn could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bop bop bop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : throw away love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sweet sweet sweet could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long long time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get love come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : find somebody love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feel like dancing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bell ring bell could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoa whoa whoa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake groove thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : right right right could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love throw away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good times good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme gimme gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fame fame fame could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh oh oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : things could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : together could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : believe could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dream could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : something could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna take could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know youll could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never gonna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : look eyes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : take home could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : live without could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : em theyre could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold hold could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : far away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll miss could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tonight tonight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every little could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : broken heart could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres something could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : see light could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ohhh ohhh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dance dance could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : weve got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : way make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : kick em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : beat beat could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know youll miss could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wish could could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : think love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stroke stroke could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theyre kick em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : em theyre kick could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rock n roll could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ohhh ohhh ohhh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : kick em theyre could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bop bop bop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold hold hold could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night night night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go cant go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know know know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant go cant could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : stroke stroke stroke could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : amadeus amadeus amadeus could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shes fresh shes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fresh shes fresh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : beat beat beat could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake love cant could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love rainy night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love cant shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : miss know youll could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hot hot hot could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : church poison mind could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll miss know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : poison mind church could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mind church poison could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give good love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : around cant stand could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say say say could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tumble ya tumble could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : red red wine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : nothing nothing nothing could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : time time time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : take funkytown wont could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh lay hands could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night long night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna stand baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : funkytown wont take could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aint gonna stand could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stand stand stand could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : seeds love sowing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh oh comes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never let go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like bad medicine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lets dance lets could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got beat got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give little bit could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : cherish love cherish could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : works hard money could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : tonight tonight tonight could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sowing seeds love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : much time hands could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love sowing seeds could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love open door could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : left hand side could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dance lets dance could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant get enough could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll see light could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ya tumble ya could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna live without could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : tonight know tonight could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shack baby love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rhythm gonna get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love shack baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know tonight know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hands lay hands could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby youve got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : always feel like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want want want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say isnt say could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : remember remember remember could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : like somebodys watching could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lay hands lay could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : feel like somebodys could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every little step could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : de da da could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant hold back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby true love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby love shack could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : wont take funkytown could not be fit on page. It will not be
## plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : take could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : right could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : could could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : think could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : would could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : around could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : always could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mind could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : things could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : said could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : find could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : look could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : real could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : believe could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : eyes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : another could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youve could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : everything could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : something could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nothing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : much could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : someone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : try could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : let go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : play could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wrong could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby baby baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youve got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tu cuerpo could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go let go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : would anything could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lets get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really wanna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never ever could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feel like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dat dat dat could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : coming back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ya ya ya could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : close eyes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tootsie roll could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : way feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cuerpo alegria could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : alegria macarena could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : would anything love could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tu cuerpo alegria could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : cuerpo alegria macarena could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres nothing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ever needed could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : pump pump could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know need could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go go go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : live without could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : round round could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wild wild could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : let see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : jump jump could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : right right could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : real love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love always could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold tight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nah na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna take could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cause know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na nah na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : money power respect could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like like like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get lets get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wild wild west could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : roof put em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : da duh duh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lets get lets could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make go hmm could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : things make go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never gonna get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dale tu cuerpo could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : back want back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ever wanted ever could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : everybody everybody everybody could not be fit on page. It will not
## be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tu cuerpo es could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : raise roof put could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : que tu cuerpo could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : put em raise could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : pa darle alegria could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : macarena que tu could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : es pa darle could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : darle alegria cosa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cuerpo es pa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cosa buena dale could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : buena dale tu could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body body body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : back kick enjoy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : alegria macarena que could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : alegria macarena hey could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : alegria cosa buena could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake shake shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hmm things make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : girls dazzey duks could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : em raise roof could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nah na nah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love searchin real could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lay back kick could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta get get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna break heart could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats way love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : jumps da boogie could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gone til november could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give love give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dah dah dah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant live without could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never going keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never find another could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : mmm somethings comin could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like way work could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : kick enjoy ride could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get knocked get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant let go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll never find could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : work diggity got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : way work diggity could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wants another baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : spending lives living could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shout shake body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : que se llama could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : lives living gangstas could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : la la long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : knocked get never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got bag bag could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get never going could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : diggity got bag could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : da la da could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aah little bit could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : round round round could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : new flava ya could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na nana could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : little thing mind could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cause could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : right could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : take could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : could could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : man could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : think could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : would could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : better could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : world could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : turn could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : move could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : head could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : always could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : everything could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : heart could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : show could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : real could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : even could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : club could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rock could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nigga could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dance could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hot could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : things could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : leave could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ass could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bout could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tonight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : la la la could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go head could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby girl could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lets get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant help could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : girl know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cause know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey hey hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : head gone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go head gone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wish could could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : let know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make lose could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby baby baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : take away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need girl could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh wee could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bum bum could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : big boy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : act like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dance floor could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make rain could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : could take could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby boy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : move like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ive got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feel way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wee ooh wee could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bring em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : turn around could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : name love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : boom boom could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant believe could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aye aye could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake shake shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bum bedum could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoa whoa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bay bay could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : walk away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make lose breath could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ay bay bay could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bum bum bedum could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bum bedum bum could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : party like rock could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bedum bum bum could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aye aye aye could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : head gone get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gone get sexy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : catch ridin dirty could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rew rew rew could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fine fine fine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : duh dun duh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : uh uh uh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tryin catch ridin could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wit rock wit could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : low low low could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get get get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : da da da could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got got got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bring em bring could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ya love lockdown could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : walk walk walk could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thong thong thong could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sexy go head could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh uh oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : let shoulder lean could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hump hump hump could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get ur freak could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get sexy go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dee da ba could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : da ba dee could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ba dee da could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ah ah ah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make better make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ridin dirty tryin could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dirty tryin catch could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : uh oh uh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like rock star could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lean wit rock could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey baby hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : pop lock drop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh wee ooh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make rain make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go get ur could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : da ba daa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : better make better could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ur freak go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rain make rain could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never let go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love give away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : freak go get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : daa da ba could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ba daa da could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make nigga wanna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : boom boom boom could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh ay oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : huh uh huh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give girl give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : around goes around could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh ooh ooh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like hell yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : girl give girl could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : woh woh woh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wit lean wit could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want hot hoes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : uh huh uh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ti pilf nwod could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ti esrever dna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : suga suga get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : start shit wont could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shoulder lean let could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : pilf nwod gniht could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nwod gniht ym could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : moves body like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : move like move could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like move move could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lean let shoulder could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hoes didnt want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gniht ym tup could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give damn give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : girl go head could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get fly suga could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fly suga suga could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh oh oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : right could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : could could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : heart could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : put could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : think could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ever could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tonight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : money could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : look could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : la la la could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hands could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wont could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : even could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : better could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hard could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : man could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : world could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fuck could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : around could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : still could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rock could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : call could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bout could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : imma could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : show could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : home could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : going could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nothing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : break could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stay could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : something could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : real could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nigga could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : without could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feel like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : let go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey hey hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoa oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : imma imma could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh whoa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tell em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh whoa oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wiggle wiggle could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : boom boom could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh ooh ooh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bout bass could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoa oh oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : imma imma imma could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ive got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : wiggle wiggle wiggle could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bright like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bottoms bottoms could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like g 6 could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : red red could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : low go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : girl let could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh oh whoa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : eh eh eh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rack city could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hands air could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : low go low could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go go go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like diamond could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good girl could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cause know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rack city bitch could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : bright like diamond could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lets get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give fuck could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : black yellow could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go low go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bitch rack could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aint got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : red red red could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : break break break could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta gotta could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yo hands could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rock body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : play play could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love let could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : burn burn could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bass bout could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wish could could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shine bright could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rock rock could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bring back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : city bitch rack could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : new york could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lets make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got one could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant live could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aint even could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : girl let love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like one could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : money money money could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know know know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : boom boom boom could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yellow black could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : moves like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : black yellow black could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tell em tell could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : la na na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : la la na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant live without could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : put yo hands could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : op op op could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : found love hopeless could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bass bout bass could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : 6 like g could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : yellow black yellow could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna see wanna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : treble bout bass could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shine bright like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : see wanna see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make feel like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : em tell em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bout bass treble could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bout bass bout could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bass treble bout could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta gotta gotta could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na la could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : solo ridin solo could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one less problem could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hitta hitta hitta could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : play play play could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : moves like jagger could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : love hopeless place could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like diamond shine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know want know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : diamond shine bright could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : burn burn burn could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hands put hands could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wish never met could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want know want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : tonights gonna good could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rumor ooh rumor could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : place found love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh rumor ooh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need need need could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : meaning byjamesg editor could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : look body girl could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like jagger ive could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : jagger ive got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : hopeless place found could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : happy clap along could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got moves like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna wish never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fly like g could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feelin fly like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cake cake cake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body girl look could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoa oh whoa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : us fallin love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tonight dj got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tears gonna fall could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rock rock rock could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna fall rolling could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dj got us could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bop bop bop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby tonight dj could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aaaaohohhhhh aaaaaaaohohohoh aaaaohohhhhh could not be fit on page.
## It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : turn turn turn could not be fit on page. It will not be plotted.

Word cloud with most popular unigrams by decade:

for (i in 0:5){
n_gram_i <- filter(n_gram, n_gram$decade == 1960+10*i, n_gram$gram == 'unigram')
wordcloud(n_gram_i$word, n_gram_i$count, min.freq =3, scale=c(5, .2), random.order = FALSE, random.color = FALSE, colors= pal)}

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : without could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : together could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dream could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : something could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : forever could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : inside could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cause could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : would could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : man could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : world could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : around could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : always could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : things could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lets could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : look could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : believe could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : eyes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : another could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : show could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : without could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youve could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : everything could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : put could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : call could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : something could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nothing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : someone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : better could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : play could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wrong could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stay could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cause could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aint could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : take could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : man could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : boy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : well could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : better could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : world could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : turn could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : little could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lets could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : move could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : look could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : head could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : always could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : everything could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : heart could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : real could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mind could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : even could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nigga could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dance could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hot could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gon could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : things could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : big could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : leave could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ass could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bout could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tonight could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : think could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ever could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tonight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : money could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : turn could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lets could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hands could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wont could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : well could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bad could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : better could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : world could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fuck could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : around could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rock could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bout could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : imma could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : would could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : home could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : going could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nothing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : break could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stay could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : something could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nigga could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : without could not be fit on page. It will not be plotted.

Word cloud with most popular bigrams by decade:

for (i in 0:5){
n_gram_i <- filter(n_gram, n_gram$decade == 1960+10*i, n_gram$gram == 'bigram')
wordcloud(n_gram_i$word, n_gram_i$count, min.freq =3, scale=c(5, .2), random.order = FALSE, random.color = FALSE, colors= pal)}
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : help rhonda could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rhonda help could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh happy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : go home could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youve got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : miles miles could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make mine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love need could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hurdy gurdy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never gonna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : black proud could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aint got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yellow submarine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bop bop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : working coal could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : light fire could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : help help could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : comes judge could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : coal mine could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : well know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : send telegram could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : happy day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : grazin grass could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gurdy hurdy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : barefootin barefootin could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whole world could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theyll stone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : simon says could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : real real could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mony mony could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lovin gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme lovin could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nothing like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold tight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fall love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : deep inside could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : back get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : think think could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : round round could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : paperback writer could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wooly bully could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sweet inspiration could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : surry surry could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : simple simon could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : see miles could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say youll could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : please please could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one loneliest could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh baby could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dance dance could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh ooh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youve got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fall love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : doo dit could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme dat could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : beach baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : float float could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : awimoweh awimoweh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : little love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby beach could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get floor could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : doo doo could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wonder wonder could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sweet sweet could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say goodbye could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : time love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : little luck could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : take home could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : makin love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good times could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stop stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dat gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bring em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : weve got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : right right could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get enough could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoa whoa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sweet love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aint got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : walk away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fallin love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : much love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : leave alone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get together could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : friends cant could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant friends could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : take hand could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sail away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like makin could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : id like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come true could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sing song could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love thats could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come sail could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say say could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : louie louie could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold hold could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll miss could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tonight tonight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : find way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : could never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : broken heart could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres something could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : see light could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ohhh ohhh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dance dance could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : weve got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : way make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love thats could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : beat beat could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wish could could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : think love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theyre kick could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stroke stroke could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : would anything could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really wanna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never ever could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : coming back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : close eyes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never gonna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : way feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : anything love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cuerpo alegria could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : alegria macarena could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres nothing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ever needed could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : pump pump could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know need could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : round round could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wild wild could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : jump jump could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : right right could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : real love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love always could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every day could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love oh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold tight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nah na could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna take could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cause know could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aint got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant help could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : girl know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cause know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : know like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : head gone could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wish could could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make lose could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : take away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : need girl could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bum bum could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dance floor could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant take could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna see could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make rain could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gotta get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby boy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wee ooh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : move like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feel way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make feel could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bring em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : turn around could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : name love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : boom boom could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wanna get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ay bay could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : one thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant believe could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aye aye could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get right could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby know could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bum bedum could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love way could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bay bay could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : walk away could not be fit on page. It will not be plotted.

Word cloud with most popular trigrams by decade:

for (i in 0:5){
n_gram_i <- filter(n_gram, n_gram$decade == 1960+10*i, n_gram$gram == 'trigram')
wordcloud(n_gram_i$word, n_gram_i$count, min.freq =3, scale=c(5, .2), random.order = FALSE, random.color = FALSE, colors= pal)}
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme lovin gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bully wooly bully could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoop wanna sit could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : say louder black could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mine whoop wanna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : mine going working could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love keeps lifting could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : louder black proud could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good good good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : going working coal could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fought law law could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : comes judge comes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : coal mine whoop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : coal mine going could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats way love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : oh happy made could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never gonna give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : miles see miles could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : jumping jack flash could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : jack flash gas could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : black proud say could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : back home belong could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nothing like real could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : beach baby beach could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby beach baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come come come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : awimoweh awimoweh awimoweh could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme dat gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come sail away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feel like makin could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : chhchh uh chh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : chh chhchh uh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : uh chh chhchh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sail away come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : em back alive could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bring em back could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : away come sail could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like makin love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good time roll could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : floor let good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby baby baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never say goodbye could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : louie louie louie could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stop stop til could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : keep force stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : force stop stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : come get love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : til get enough could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : put lime coconut could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : play funky music could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna walk away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : worry bout thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got boogie disco could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : da doo ron could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : boogie disco round could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : things love things could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ring bell ring could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : put hands together could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : love hear percussion could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme gimme dat could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get enough keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : enough keep force could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dat gimme gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dat gimme dat could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : burn baby burn could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bop bop bop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : throw away love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : sweet sweet sweet could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ron ron ron could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love baby love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long long time could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get love come could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : find somebody love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : feel like dancing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bell ring bell could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : baby love love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoa whoa whoa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake groove thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : right right right could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love throw away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good times good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gimme gimme gimme could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : fame fame fame could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah oh yeah could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : yeah yeah yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : everybody everybody everybody could not be fit on page. It will not
## be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : buena dale tu could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body body body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : back kick enjoy could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : alegria macarena que could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : alegria macarena hey could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : alegria cosa buena could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake shake shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : girls dazzey duks could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : em raise roof could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nah na nah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love searchin real could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lay back kick could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gonna break heart could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats way love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love give love could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : jumps da boogie could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gone til november could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give love give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : dah dah dah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant live without could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never going keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never find another could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : mmm somethings comin could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get knocked get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant let go could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : youll never find could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : work diggity got could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : wants another baby could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shout shake body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : que se llama could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale
## = c(5, : lives living gangstas could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : la la long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : got bag bag could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get never going could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : diggity got bag could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : aah little bit could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : round round round could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : na na nana could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : little thing mind could not be fit on page. It will not be plotted.

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make rain make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rain make rain could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : love give away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : freak go get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ba daa da could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make nigga wanna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : boom boom boom could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : huh uh huh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give girl give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : around goes around could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ooh ooh ooh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like hell yeah could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : woh woh woh could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : want hot hoes could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : ti esrever dna could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : suga suga get could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : start shit wont could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shoulder lean let could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : pilf nwod gniht could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nwod gniht ym could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : moves body like could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : move like move could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : like move move could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : lean let shoulder could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hoes didnt want could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : gniht ym tup could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : give damn give could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : get fly suga could not be fit on page. It will not be plotted.

Evolution of word count per year:

word_set <- list(list('love', 'like'), list('girl', 'boy'), list('woman', 'man'), list('war', 'peace'))
word_count <- read.csv("../data/Louis/word_count_per_year.csv")
for (i in 1:4){
  word1 <- word_set[[i]][[1]]
  word2 <- word_set[[i]][[2]]
  word_filter = filter(word_count, word_count$word == word1 | word_count$word == word2)
  print(ggplot(word_filter, aes(x = year, y = count, col = word)) +
  geom_line() +
  theme(legend.position="bottom") +
  ggtitle(paste(word1,word2, sep="/")) +
  theme(plot.title = element_text(hjust = 0.5)) +
  xlab("Year") + 
  ylab("Count"))
}

word_df <- read.csv("../data/tidy-words.csv")
most_energetic_words = word_df %>%
                group_by(word) %>%
                summarize(energy_med = median(energy)) %>%
                filter(!is.na(energy_med)) %>%
                top_n(100, energy_med) %>%
                mutate(energy_scale = (energy_med - min(energy_med))*100/max(energy_med))
least_energetic_words = word_df %>%
                group_by(word) %>%
                summarize(energy_med = median(energy)) %>%
                filter(!is.na(energy_med)) %>%
                top_n(100, desc(energy_med)) %>%
                mutate(energy_scale = 100*(1 - (energy_med - min(energy_med))/max(energy_med)))

wordcloud(most_energetic_words$word, most_energetic_words$energy_scale, scale=c(2, .2), random.order = FALSE, random.color = FALSE, colors= pal)

wordcloud(least_energetic_words$word, least_energetic_words$energy_scale, scale=c(1, .1), random.order = FALSE, random.color = FALSE, colors= pal)
## Warning in wordcloud(least_energetic_words$word, least_energetic_words
## $energy_scale, : expression could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(least_energetic_words$word, least_energetic_words
## $energy_scale, : gentle could not be fit on page. It will not be plotted.
## Warning in wordcloud(least_energetic_words$word, least_energetic_words
## $energy_scale, : youthe could not be fit on page. It will not be plotted.
## Warning in wordcloud(least_energetic_words$word, least_energetic_words
## $energy_scale, : confusing could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(least_energetic_words$word, least_energetic_words
## $energy_scale, : incredible could not be fit on page. It will not be
## plotted.

most_danceable_words = word_df %>%
                group_by(word) %>%
                summarize(danceability_med = median(danceability)) %>%
                filter(!is.na(danceability_med)) %>%
                top_n(100, danceability_med) %>%
                mutate(danceability_scale = (danceability_med - min(danceability_med))*100/max(danceability_med))
least_danceable_words = word_df %>%
                group_by(word) %>%
                summarize(danceability_med = median(danceability)) %>%
                filter(!is.na(danceability_med)) %>%
                top_n(100, desc(danceability_med)) %>%
                mutate(danceability_scale = 100*(1 - (danceability_med - min(danceability_med))/max(danceability_med)))

wordcloud(most_danceable_words$word, most_danceable_words$danceability_scale, scale=c(2, .2), random.order = FALSE, random.color = FALSE, colors= pal)

wordcloud(least_danceable_words$word, least_danceable_words$danceability_scale, scale=c(1, .1), random.order = FALSE, random.color = FALSE, colors= pal)
## Warning in wordcloud(least_danceable_words$word, least_danceable_words
## $danceability_scale, : lightning could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(least_danceable_words$word, least_danceable_words
## $danceability_scale, : worries could not be fit on page. It will not be
## plotted.

most_explicit_words = word_df %>%
                group_by(word) %>%
                summarize(explicit_mean = mean(explicit)) %>%
                filter(!is.na(explicit_mean)) %>%
                top_n(100, explicit_mean) %>%
                mutate(explicit_scale = (explicit_mean - min(explicit_mean))*100/max(explicit_mean))
wordcloud(most_explicit_words$word, most_explicit_words$explicit_scale, scale=c(2, .2), random.order = FALSE, random.color = FALSE, colors= pal)

Executive Summary

This section of the report describes our most interesting findings and conveys those to the reader in a succinct manner.

Popular music offers a unique lens through which to study how a culture evolves. It shows us how we as a society think and it is one form of art that everyone as a comminity enjoys. It allows us to mine insights about what preoccupies a society, what it values in its entertainment, and how its preferences change with each generation. We limit our view to only the 100 most popular songs for each of the past 50 years as we feel that is something that defines what people listened to/ liked most that year.

Our most interesting findings are logged below:

Love conquers all, but unfortunately it’s not forever.

The analysis of the top 100 song lyrics from 1965 to 2015 reveal some interesting insghts. The most common word to appear each year is initially “love”, however it’s interesting to see the most common word changes to like in subsequent years. Google word trends also confirms this fearful observation; according to Google, the popularity of the word “like” overtook the popularity of “love” at almost the same time shown in our plots. We claim that this is because of the word like developing as a filler in many of the sentences and our daily lives and has thus become a ubiquitous word in speech and song alike. However, worry not; in our hearts, love still trumps like.

some cool code displaying word clouds

for (i in list(0,5)){
n_gram_i <- filter(n_gram, n_gram$decade == 1960+10*i, n_gram$gram == 'unigram')
wordcloud(n_gram_i$word, n_gram_i$count, min.freq =3, scale=c(5, .2), random.order = FALSE, random.color = FALSE, colors= pal)}

## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : make could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : never could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : cant could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : night could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : good could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hey could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : could could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thats could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : heart could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : think could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : tonight could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : money could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : look could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : turn could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : em could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hands could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : little could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : every could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : better could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hard could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : man could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bitch could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : away could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : around could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : still could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : rock could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : bout could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : really could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : imma could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : show could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : would could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : home could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : shake could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : hold could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : long could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : going could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stop could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nothing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : break could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : stay could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : whoa could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : something could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : nigga could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : body could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : theres could not be fit on page. It will not be plotted.
## Warning in wordcloud(n_gram_i$word, n_gram_i$count, min.freq = 3, scale =
## c(5, : without could not be fit on page. It will not be plotted.

  word1 <- 'love'
  word2 <- 'like'
  word_filter = filter(word_count, word_count$word == word1 | word_count$word == word2)
  ggplot(word_filter, aes(x = year, y = count, col = word)) +
    geom_line() +
    theme(legend.position="bottom") +
    ggtitle(paste(word1,word2, sep="/")) +
    theme(plot.title = element_text(hjust = 0.5)) +
    xlab("Year") + 
    ylab("Count")

Flash in the pan vs. steady burn

One of the more interesting aspects of the data is that it allows us to see which artists had the greatest longevity of career, defined simply as number of years between an artist’s earliest charting hit and most recent charting hit. A caveat here is that because the latest of any duplicate singles was removed from the dataset, some artists’ career lifespans appear shorter by a year than if duplicates singles had not been removed. We not only observe which artists had the greatest career longevity but also the time period during which an artist was popular, with lighter colors signifying an artist with greater numbers of total hit singles. Curiously, while Madonna and Mariah Carey have charted most frequently in the top 100, several artists, Santana, Cher, The Isley Brothers, Aretha Franklin, etc., have had longer charting careers.

top_artists = df %>%
                group_by(artist_base) %>%
                summarize(num_singles = n(), earliest_hit = min(year), latest_hit = max(year), longevity = latest_hit - earliest_hit, hits_per_year = num_singles / longevity) %>%
                arrange(desc(longevity))
top_artists_30 = top_artists[0:30,]

ggplot(top_artists_30) + geom_segment(aes(x=earliest_hit, xend=latest_hit, y=reorder(artist_base, longevity), yend=reorder(artist_base, longevity), color=num_singles), size=5) + geom_text(aes(x=latest_hit + 3, y=reorder(artist_base, longevity), label=paste(longevity, 'years'))) + ggtitle('Career spans of most timeless artists') + xlab('Year') + ylab('Name of Artist')

This raises a natural question: does there exist a relationship between the number of singles an artist produces per year and their career span? In the left plot below, we observe that no artist has produced an average of greater than 2 hit singles a year and achieved a career span exceeding a decade. In fact, all artists generating on avearage more than 2.5 hit singles per year have career spans of less than 5 years, with the most significant “flash in the pan” artists being those that averaged 4 or more hit singles per year.

p1 = ggplot(top_artists, aes(x = longevity, y = hits_per_year, color = num_singles)) + geom_point(alpha=0.25)
p2 = ggplot(top_artists) + geom_histogram(aes(x=num_singles, y=cumsum(..count../sum(..count..))), bins=31)

grid.arrange(p1, p2, ncol=2)

However, being a “flash in the pan” artist with multiple hit singles over a short span of time might still be preferable to the fates of the majority of charting artists. In the cumulative relative frequency histogram above and right, we see that over half of all artists are “one hit wonders”, only ever generating a single hit, and over 3/4ths of artists ever generate at most 2 hits.

Pay attention to me!

The music market has become increasingly competitive with artists trying to vie for the attention of users from all age groups. The rise of streaming services such as Spotify and Apple music has made music easily accessible, but also, has exposed people to more types of music genres and thus, it has become harder to capture and keep the attention of listeners

p1 = ggplot(df, aes(x=energy, y=loudness, color=year)) +
    geom_point(alpha=0.5) +
    ggtitle('Energy vs. loudness') +xlab('Energy')

p2 = ggplot(df, aes(x=energy, y=loudness)) +
    geom_point(alpha=0.15) +
    facet_wrap(~ decade)

grid.arrange(p2, p1, ncol = 2)
## Warning: Removed 327 rows containing missing values (geom_point).

## Warning: Removed 327 rows containing missing values (geom_point).

Above, we plot the energy and loudness of every single song; on the left, the 6 scatter plots are filtered by decade (i.e. only songs from that decade are plotted), and on the right, we plot all songs together with the year in which it charted shown as a color. In both cases, we observe that both the energy and loudness of songs has been increasing over time, particularly after the 1990s.

This relates directly to a phenomenon known as the “Loudness Wars”, which “refers to the trend of increasing audio levels in recorded music.” Wikipedia

With the advent of the Compact Disc (CD), music is encoded to a digital format with a clearly defined maximum peak amplitude. Once the maximum amplitude of a CD is reached, loudness can be increased still further through signal processing techniques such as dynamic range compression and equalization. It has been observed and documented that since the 1990’s, artists have adopted the practice of making their songs louder in the hopes of more successfully catching listeners’ attention on the radio. However, this naturally sets off a chain reaction where all artists must follow the same practice lest their songs sound “weaker” by comparison.

p1 = ggplot(df, aes(x=instrumentalness, y=duration_min, color=year)) +
    geom_point(alpha=0.5)

p2 = ggplot(df, aes(x=instrumentalness, y=duration_min)) +
    geom_point(alpha=0.15) +
    facet_wrap(~ decade)

grid.arrange(p2, p1, ncol = 2)
## Warning: Removed 327 rows containing missing values (geom_point).

## Warning: Removed 327 rows containing missing values (geom_point).

Other trends in the data can also be attributed to an increasingly competitive environment for artists. Above, we plot the instrumentalness of each song against its duration in minutes and observe that both the instrumentalness and duration of songs has been declining since the 1970s.

That song durations are becoming less variable is strongly related to our earlier hypothesis about the increasing need and difficulty of capturing audience’s attention in a world where more music than ever is available at the press of a button.

The decline in instrumentalness can further be attributed to two causes:

  • Shorter songs means less time for instrumental intros or mid-song interludes.
  • There has been a large decline in instrumental artists and thus music. There is a comprehensive CNN article detailing the reasons.

Bleep Bleepin’ Bleep

Rap music has gained increasing pouulartity since the 90’s. This wikipedia article details the gaining popularity and the reasons for the same. It boils down to how we have changed culturally as a society; things that were once not accepted as a society and now open and Rap music is an example of that. We have culturally evolved from a more orthodox to a more open minded society. Our data again shows hard evidence that this is in fact happening.

#Speechiness
ggplot(spotifydf) + geom_boxplot(aes(year, speechiness, group=year)) +
    ggtitle("Speechiness over Time")+
    ylab("Speechiness ")+
    scale_x_continuous(breaks = seq(1960,2020,5))

p2 = ggplot(df, aes(x=words_per_sec, y=speechiness)) +
    geom_point(alpha=0.15) +
    facet_wrap(~ decade)

grid.arrange(p2, p1, ncol = 2)
## Warning: Removed 327 rows containing missing values (geom_point).

## Warning: Removed 327 rows containing missing values (geom_point).

There has also been a rise in another feature in music, this may be in part related to the increasing popularity of Rap music as well. Rap music often times contains explicit words and this is perfectly visible from the below plot.

explicit = df %>% 
           group_by(year) %>%
           summarize(prop_explicit = sum(explicit, na.rm=TRUE))

ggplot(explicit, aes(x = year, y = prop_explicit), fill='black') + 
    geom_line() + 
    geom_point() + 
    ylab('Number of explicit songs')

Show some word clouds with explicit words below!!!

# TODO 
'can also copy Louisword cloud showing the most explicit words. the fact that "feds/cops" and some other not intrinsically explicit words shows up is fascinating. will need to re-summarize how a words explicitness is calcualted (i.e. re-hash the process for creating "tidy words" dataset'
## [1] "can also copy Louisword cloud showing the most explicit words. the fact that \"feds/cops\" and some other not intrinsically explicit words shows up is fascinating. will need to re-summarize how a words explicitness is calcualted (i.e. re-hash the process for creating \"tidy words\" dataset"
wordcloud(most_explicit_words$word, most_explicit_words$explicit_scale, scale=c(2, .2), random.order = FALSE, random.color = FALSE, colors= pal)

Odds and ends

[ Louis’ word clouds for most danceable, most energetic, etc. words ]

wordcloud(most_danceable_words$word, most_danceable_words$danceability_scale, scale=c(1.5, .2), random.order = FALSE, random.color = FALSE, colors= pal)

wordcloud(most_energetic_words$word, most_energetic_words$energy_scale, scale=c(1.5, .2), random.order = FALSE, random.color = FALSE, colors= pal)

Interactivity

For the interactive portion of this analysis, we decided to build a RShiny Dashboard, which is linked here: https://kathyl.shinyapps.io/EDAV_SP18_DreamTeam_FinalProject/

The dashboard has a main menu with four components reflecting on the main topics of our analyses: Artists, Word Clouds, Songs, and Evolution over Time. To hide/minimize this main menu bar, you can click the icon of three bars that’s next to DreamTeam Final. We recommend viewing this dashboard in a maximized web browser, and minimizing the main menu bar when viewing contents of each component individually.

The Artists tab shows three interesting findings regarding Billboard Top 100 Artists: an artist’s lifespan (which we’ve defined earlier as when they first appeared on the top 100 to when they last appeared), artists who have collaborated the most in their songs / artists who have been the featured artists in songs, and lastly the overall level of collaboration over time. You can view the last graph by clicking on the check box as shown in the side panel.

The Word Clouds analysis is included as the second item on the main menu panel. As described earlier, we’ve analyzed the lyrics of the Billboard Top 100 songs from 1965-2015 and found interesting trends with popular words throughout the years. The user has a choice of ngrams, unigrams, bigrams, or trigrams as well as any of the decades in our dataset. It should be noted that the user may have to wait a bit before the word clouds load initially.

The next panel contains our analysis of songs which include word count over time, and number of covers in the Top 100 over time. The user can compare any two words of their choosing from the drop down menu on the sidepanel that they like and observe the behavior over time. The number of covers over time graph is controlled by the slider in the side panel which controls the binwidth of the histogram shown.

Evolution over Time is our last tab. Our dataset contained several variables (defined earlier in our report). And we decided it would be interesting to view the evolution of these variables both individually and grouped over time. The first graph shown is a univariate analysis of each variable. The user can zoom in by highlighting any time period they’re interested in. To zoom out, double click. We also included a higher level interactive parallel coordinates plot that will appear once the user clicks the checkbox to allow viewing overall trends and behaviors in groups of variables.

We hope users find this interactive dashboard both engaging and informative!

Conclusion

This brings us to the end of the project. However, we would like to take some time to reflect on the project and what we learned through the process and how we would have performed some processes differently.

We encountered several problems; the first major problem with the data was fused words. Word clouds have formed an important part of the project and messy word data was one of the biggest problems we had. If we had more time would have liked to use an NLP package to tag out of vocabulary words to estimate the extent of the issue. We currently removed these words from the data.

Second, we would have liked to do some more feature engineering on the features and derive and infer some subtle features from the data using the features we already had and see how these implicit features have changed. For instance, using the tidy words transformation and averaging the audio features by word is a very heuristic method of calculating features like “danceability” for each word. A better method would have been to convert each song’s lyrics to bag-of-words data and trained multiple linear regressions using the lyrics to predict the song’s audio feature (i.e. one regression model for danceability, one regression model for energy, etc.). We could then use the coefficients from the linear regression to tell us what the most and least danceable/energetic/loud/acoustic/etc. Unfamiliarity with R as a programming tool and time restrictions were the factors as to why we could omitted these analyses.